UnPackTime procedure

  DECLARATION:  UnPackTime(Time : LongInt; Var DT : DateTime;                   );

      PURPOSE:  Converts a packed date/time into a DateTime record

         UNIT:  DOS

      REMARKS:  Converts a 4-byte, packed Date-and-Time LongInt returned
                by GetFTime, FindFirst, or FindNext into an unpacked
                DateTime record

                    Type
                       DateTime = Record
                          Year, Month, Day, Hour, Min, Sec : Integer;
                       End;

                Valid ranges for the fields in the DateTime record are:

                    Year 1980..2099     Month 1..12     Day 1..31
                    Hour 0..23          Min 0..59       Sec 0..59